home *** CD-ROM | disk | FTP | other *** search
/ Building Homes of Our Own / Building Homes of our Own.iso / setup / data1.cab / Everything / working / Prompts / prompt.dxr / 00012_showHands.ls < prev    next >
Encoding:
Text File  |  2002-09-25  |  1009 b   |  36 lines
  1. on showHands
  2.   NumMems = the number of castMembers of castLib "internal"
  3.   aLib = "internal"
  4.   indent = "   "
  5.   outString = RETURN
  6.   put "Handlers in <PromptMovie>..." & RETURN after outString
  7.   repeat with x = 1 to NumMems
  8.     if member(x, aLib).type <> #script then
  9.       next repeat
  10.     end if
  11.     if member(x, aLib).scriptType <> #movie then
  12.       next repeat
  13.     end if
  14.     rawText = member(x, aLib).scriptText
  15.     repeat while rawText <> EMPTY
  16.       thisLine = line 1 of rawText
  17.       delete line 1 of rawText
  18.       if emptyString(thisLine) then
  19.         next repeat
  20.       end if
  21.       if word 1 of thisLine = "on" then
  22.         numWords = the number of words in thisLine
  23.         tempString = indent
  24.         repeat with y = 2 to numWords
  25.           put word y of thisLine after tempString
  26.           if y <> numWords then
  27.             put " " after tempString
  28.           end if
  29.         end repeat
  30.         put tempString & RETURN after outString
  31.       end if
  32.     end repeat
  33.   end repeat
  34.   return outString
  35. end
  36.